Naatsorsueqqissaartarfik

---
pagetitle: Naatsorsueqqissaartarfik
format: statglshortcodes-html
execute:
  echo: false
  warning: false
  message: false
page-layout: custom
toc: false
---


::: {.hero-banner .justify-content-center .text-center}

# Naatsorsueqqissaartarfik

![](GSLogo_kl.png){.hero-logo .d-block .mx-auto .my-3 style="max-width:300px"}


Official Statistics and visual insights. <br>
Society, Economy, and Climate

::: {.d-flex .flex-wrap .justify-content-center .gap-3 .pt-4 .pb-3}
[Explore Statistics](/statistics){.btn .btn-primary}
[Release calendar](/release){.btn .btn-secondary}
:::
:::

```{r}
library(tidyverse)
library(statgl)
library(glue)

quarterly_pop <- 
  statgl_fetch("BENSTK1", `time (primo)` = px_top(), .col_code = TRUE) %>% 
  pull(value, name = `time (primo)`) %>% 
  format(big.mark = ".", decimal.mark = ",")

gdp_yearly_growth <- 
  statgl_fetch("NRD10", time = px_top(), units = "K", account = "04") %>% 
  mutate(
    label = glue("{ifelse(value >= 0, '+', '-')}{format(value, decimal.mark = ',')}%")
  ) %>% 
  pull(label, Aar)

prices_yearly <- 
  statgl_fetch("PRNPRISH", time = px_all(), .col_code = TRUE) %>% 
  drop_na() %>% 
  tail(1) %>% 
  pull(value, time) %>% 
  format(decimal.mark = ",")

unemployment_rate <- 
  statgl_fetch("ARXLED3", opg_var = "P", aar = px_top()) %>% 
  pull(value, time) %>% 
  format(decimal.mark = ",") 
```

::: {.kpi-grid}
::: {.grid}
::: {.g-col-6 .g-col-md-3}
{{< kpicard 
  title = "Kalaallit Nunaanni innuttaasut" 
  subtitle = "`r names(quarterly_pop)`" 
  value = "`r quarterly_pop[[1]]`" 
  link = statistics/topics/persons/population/population_figures.html 
  style= "height:100%;"
>}}
:::

::: {.g-col-6 .g-col-md-3}
{{< kpicard 
  title = "Ukiumut BNP-ip ineriartornera" d
  subtitle = "`r names(gdp_yearly_growth)`"
  value = "`r gdp_yearly_growth[[1]]`"
  link = statistics/topics/economy/national_account.html 
  style= "height:100%;"
>}}
:::

::: {.g-col-6 .g-col-md-3}
[kpicard 
  title = "Ukiumut akit qaffariaataat" 
  subtitle = "`r names(prices_yearly)`"
  value = "`r paste0(prices_yearly[[1]], "[]{.quarto-shortcode__-param data-is-shortcode="1" data-value="%")`"" data-raw="%\")`\""}
  link = statistics/topics/economy/price_index.html 
  style= "height:100%;"
]{.quarto-shortcode__ data-is-shortcode="1" data-raw="{{< kpicard 
  title = \"Ukiumut akit qaffariaataat\" 
  subtitle = \"`r names(prices_yearly)`\"
  value = \"`r paste0(prices_yearly[[1]], \"[]{.quarto-shortcode__-param data-is-shortcode=\"1\" data-value=\"%\")`\"\" data-raw=\"%\\\")`\\\"\"}
  link = statistics/topics/economy/price_index.html 
  style= \"height:100%;\"
>}}"}
:::

::: {.g-col-6 .g-col-md-3}
[kpicard 
  title = "Suliffissaaleqisut" 
  subtitle = "`r names(unemployment_rate)`" 
  value = "`r paste(unemployment_rate[[1]] , "[]{.quarto-shortcode__-param data-is-shortcode="1" data-value="pct.")`"" data-raw="pct.\")`\""} 
  link = statistics/topics/business_labour/labour/employment.html 
  style= "height:100%;"
]{.quarto-shortcode__ data-is-shortcode="1" data-raw="{{< kpicard 
  title = \"Suliffissaaleqisut\" 
  subtitle = \"`r names(unemployment_rate)`\" 
  value = \"`r paste(unemployment_rate[[1]] , \"[]{.quarto-shortcode__-param data-is-shortcode=\"1\" data-value=\"pct.\")`\"\" data-raw=\"pct.\\\")`\\\"\"} 
  link = statistics/topics/business_labour/labour/employment.html 
  style= \"height:100%;\"
>}}"}
:::
:::
:::



::: {.kpi-grid}

::: {.grid}

::: {.g-col-12 .g-col-md-4}
{{< sectioncard 
  title="Society" 
  text="Demography, migration, and population trends." 
  link="/statistics/topics/persons/" 
  icon="bi-people"
>}}
:::
::: {.g-col-12 .g-col-md-4}
{{< sectioncard 
  title="Economy" 
  text="National accounts, prices, and employment." 
  link="/statistics/topics/economy/"
  icon="bi-cash-stack"
>}}
:::
::: {.g-col-12 .g-col-md-4}
{{< sectioncard 
  title="Environment" 
  text="Energy, climate, and sustainability indicators."
  link="/statistics/topics/environment/"
  icon="bi-leaf"
>}}
:::
:::
:::